unit MapCustom;

interface

uses Engine;

type
  TMapCustom = class(TObject)
  private
    FHeight: Integer;
    FWidth: Integer;
    function GetHeight: Integer;
    function GetWidth: Integer;
  public
    constructor Create;
    procedure Clear; virtual; abstract;
    procedure Render; virtual; abstract;
    property Width: Integer read GetWidth;
    property Height: Integer read GetHeight;
  end;


implementation

{ TMapCustom }

constructor TMapCustom.Create;
begin
  FHeight := MAP_HEIGHT;
  FWidth := MAP_WIDTH;
end;

function TMapCustom.GetHeight: Integer;
begin
  Result := FHeight;
end;

function TMapCustom.GetWidth: Integer;
begin
  Result := FWidth;
end;

end.
